home *** CD-ROM | disk | FTP | other *** search
- /***************************************************/
- /* Create MaxFile/PM program object on the Desktop */
- /***************************************************/
-
- Call RxFuncAdd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs'
- Call SysLoadFuncs
-
- Parse Upper Arg iDir junk
-
- if iDir = ' ' then do
- Say
- Say 'Usage: INSTALL ProgramDir'
- Exit
- end
-
- Say
- Say 'Creating MaxFile/PM Desktop program object.'
- r = SysCreateObject("WPProgram", "MaxFile/PM", "<WP_DESKTOP>",,
- "EXENAME="||iDir||"\MAXFMPM.EXE;STARTUPDIR="||iDir )
-